Código fuente de 'Editor de textos.asp'
<html>
<title>Editor de textos - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body bgcolor="#FFFFFF">
</head>
<p align="center"><b><font size="3" face="Arial">Editor de textos</font></b></p><br>
<center>
<form action="Editor de textos.asp" method="POST" style="font-family: Verdana; font-size: 10pt">
<p>
<l>Fuente:
<select name="font">
<option value="TR">Times New Roman</option>
<option value="AR">Arial</option>
<option value="SF">Script</option>
</select> Color:
<select name="colour" size="1">
<option value="BK">Negro</option>
<option value="BL">Azul</option>
<option value="RD">Rojo</option>
<option value="GN">Verde</option>
</select> Tamaño:
<select name="size" size="1">
<option value="H5">Por defecto</option>
<option value="H6">1</option>
<option value="H5">2</option>
<option value="H4">3</option>
<option value="H3">4</option>
<option value="H2">5</option>
<option value="H1">6</option>
</select> Estilo:
<select name="style" size="1">
<option value="N">Ninguno</option>
<option value="I">Cursiva</option>
<option value="U">Subrayado</option>
<option value="B">Negrita</option>
</select>
</p>
Título: <textarea name="title" rows=1 cols=65></textarea>
<textarea name="text" rows=14 cols=75></textarea>
<p><input type=submit value="Ver resultados">
</form></center>
Kai Gohegan 2001 </font>
<p>
<%
SelectFont = request.form("font")
select case ucase(SelectFont)
case "TR"
response.write "<font face = 'Default'"
case "AR"
response.write "<font face = 'Arial'"
case "SF"
response.write "<font face = 'Script'"
End Select
SelectColour = request.form("colour")
select case ucase(SelectColour)
case "BL"
response.write " color='blue'>"
case "RD"
response.write " color='red'>"
case "GN"
response.write " color='green'>"
case "BK"
response.write " color='black'>"
End Select
title=request.form("title")
response.write "<center><U><h1>"
response.write title
response.write "</center></u></h>"
SelectSize = request.form("size")
select case ucase(SelectSize)
Case "H1"
response.write "<h1>"
Case "H2"
response.write "<h2>"
Case "H3"
response.write "<h3>"
Case "H4"
response.write "<h4>"
Case "H5"
response.write "<h5>"
Case "H6"
response.write "<h6>"
End Select
SelectStyle = request.form("style")
select case ucase(SelectStyle)
case "I"
response.write "<I>"
case "U"
response.write "<U>"
case "B"
response.write "<B>"
case else
response.write ""
End Select
text=request.form("text")
response.write text
SelectSize = request.form("size")
select case ucase(SelectSize)
Case "H1"
response.write "</h>"
Case "H2"
response.write "</h>"
Case "H3"
response.write "</h>"
Case "H4"
response.write "</h>"
Case "H5"
response.write "</h>"
Case "H6"
response.write "</h>"
End Select
SelectStyle = request.form("style")
select case ucase(SelectStyle)
case "I"
response.write "</I>"
case "U"
response.write "</U>"
case "B"
response.write "</B>"
case else
response.write ""
End Select
response.write "</font>"
%>
</body>
</html>